From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 12 Nov 2010 13:32:02 +0000 (-0500)
Subject: * lisp/simple.el (open-line): `newline' may strip trailing space.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~5684
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=e3dbc8f94e42451be2c3538c5f901d514001b4cc;p=emacs.git

* lisp/simple.el (open-line): `newline' may strip trailing space.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dd783f2231c..24138dfc471 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2010-11-12  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* simple.el (open-line): `newline' may strip trailing space.
+
 2010-11-12  Kevin Ryde  <user42@zip.com.au>
 
 	* international/mule-cmds.el (princ-list): Use mapc.
diff --git a/lisp/simple.el b/lisp/simple.el
index 329284807d2..510fb4a3b23 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -512,7 +512,7 @@ With arg N, insert N newlines."
   (interactive "*p")
   (let* ((do-fill-prefix (and fill-prefix (bolp)))
 	 (do-left-margin (and (bolp) (> (current-left-margin) 0)))
-	 (loc (point))
+	 (loc (point-marker))
 	 ;; Don't expand an abbrev before point.
 	 (abbrev-mode nil))
     (newline n)